10 INPUT"P[146]ACKEN,ODER E[146]NTPACKEN ";A$:IFA$<>"P"ANDA$<>"E"THENPRINT"[145][145]":GOTO12
11 IFA$="E"THEN20
12 INPUT"SOURCE-NAME ";S$:INPUT"DESTINATION-NAME ";D$
13 X=0:B$="":X$=""
14 OPEN2,8,2,S$+",S,R":OPEN1,8,1,"@:"+D$+",S,W"
15 GET#2,A$
16 IFA$=B$THENX=X+1:X$="\"+STR$(X)+B$:GOTO15
17 PRINT#1,X$:X$=A$:B$=X$:X=0
18 IFB$<>"\"THEN15
19 PRINT#1,"\":CLOSE2:CLOSE1:PRINT"PACKED !":END
20 INPUT"DESTINATION-NAME ";D$
21 OPEN2,8,2,D$+",S,R"
22 INPUT#2,A$:IFA$="\"THENCLOSE2:END
23 IFLEFT$(A$,1)="\"THEN27
24 PRINTA$;
25 GETA$:IFA$=""THEN22
26 GETA$:ON-(A$="")GOTO26:GOTO22
27 X=VAL(MID$(A$,2,LEN(A$)-1)):X$=RIGHT$(A$,1):FORG=1TOX+1:PRINTX$;:NEXT:GOTO22
28 REM
29 REM ********************************
30 REM *                              *
31 REM *  SEQ - PACKER / - ENTPACKER  *
32 REM *                              *
33 REM *  CODED BY ZEITGEIST/H-T/WIL  *
34 REM *      FOR PUBLICATION 11      *
35 REM *                              *
36 REM ********************************